home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / pubpoint_status.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  29.4 KB  |  736 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsRefresh.inc"-->
  7. <!--#include file="include/wmsServerHash.inc"-->
  8. <!--#include file="include/wmsconnect.inc"-->
  9. <!--#include file="include/wmsError.inc"-->
  10. <!--#include file="include/wmsToolbar.inc"-->
  11. <!--#include file="include/wmsHelp.inc"-->
  12. <!--#include file="include/wmsPageBanner.inc"-->
  13. <!--#include file="include/wmsTabs.inc"-->
  14. <%
  15. '+-------------------------------------------------------------------------
  16. '
  17. '  Microsoft Windows Media
  18. '  Copyright (C) Microsoft Corporation. All rights reserved.
  19. '
  20. '  File:       PubPoint_Status.asp
  21. '
  22. '  Contents:
  23. '
  24. '--------------------------------------------------------------------------
  25.  
  26. BeginErrorHandling
  27. ConnectToServer
  28. ConnectToPubPoint
  29.  
  30. Dim bBroadcastPubPoint
  31. Dim bCacheProxyPubPoint
  32. Dim bBroadcastPPStarted
  33. Dim bAllowingConnections
  34. Dim dwPPType
  35. Dim dwPPStatus
  36. Dim dwLastButton
  37. Dim bDriveUpdateToTreeView
  38. Dim strNowPlayingPath
  39. Dim strSinceCounter
  40.  
  41. strNowPlayingPath = ""
  42. strSinceCounter = ""
  43.  
  44. if( empty = g_objPubPoint ) then
  45.     Server.Transfer( "pubpoint_collection.asp" )
  46. end if
  47.  
  48. bDriveUpdateToTreeView = FALSE
  49. if ( 0 = strcomp( "true", qs("bUpdateTree"), vbTextCompare ) ) then
  50.     bDriveUpdateToTreeView = TRUE
  51. end if
  52.  
  53. Dim bArrivedFromServerSideTransfer
  54. bArrivedFromServerSideTransfer = Session( "bUpdateTreeView" ) and ( 0 = Len( qs("error") ) )
  55. if( bArrivedFromServerSideTransfer ) then
  56.     Session( "bUpdateTreeView" ) = FALSE
  57.     Response.Redirect( "pubpoint_status.asp?server=" & g_strQueryStringServer & "&bUpdateTree=true&ppID=" & g_strPubPointID )
  58. end if
  59.  
  60. dwPPType = g_objPubPoint.Type
  61.  
  62. bBroadcastPubPoint = FALSE
  63. if ( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_BROADCAST = dwPPType ) or ( WMS_PUBLISHING_POINT_TYPE_BROADCAST = dwPPType ) then
  64.     bBroadcastPubPoint = true
  65. end if
  66.  
  67. bCacheProxyPubPoint = FALSE
  68. if ( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_BROADCAST = dwPPType ) or ( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_ON_DEMAND = dwPPType ) then
  69.     bCacheProxyPubPoint = TRUE
  70. end if
  71.  
  72. bAllowingConnections = g_objPubPoint.AllowClientsToConnect
  73.  
  74. if bBroadcastPubPoint then
  75.     dwPPStatus = g_objPubPoint.BroadcastStatus
  76. else
  77.     dwPPStatus = g_objPubPoint.Status
  78. end if
  79.  
  80. if( 0 = StrComp( qs("op"), "resetctrs", vbTextCompare ) ) then
  81.     g_objPubPoint.PeakCounters.Reset
  82.     g_objPubPoint.TotalCounters.Reset
  83.     Response.Redirect( "pubpoint_status.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID )
  84. end if
  85.  
  86. bBroadcastPPStarted = FALSE
  87. if bBroadcastPubPoint then
  88.     bBroadcastPPStarted = ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED and dwPPStatus ) )
  89. end if
  90.  
  91. if( bBroadcastPubPoint and bBroadcastPPStarted )then
  92.     Dim enumFileType
  93.     strNowPlayingPath = TrimFileColon( g_objPubPoint.Path )
  94.  
  95.     on error resume next
  96.     if( ( 0 = StrComp( Left( strNowPlayingPath, 6 ), "mcast:" ) ) or _
  97.         ( 0 = StrComp( Right( strNowPlayingPath, 4 ), ".nsc" ) ) ) then
  98.         enumFileType = WMS_FILE_STREAM_FORMAT
  99.     else
  100.         enumFileType = g_objServer.FileType( strNowPlayingPath )
  101.     end if
  102.  
  103.     if( 0 < Len( g_strNowPlayingPath ) ) then
  104.  
  105. '
  106. ' The current path is acquired in DrawPPNameBanner and stuffed into g_strNowPlayingPath...
  107. '        Dim objOnlinePlaylist
  108. '        Set objOnlinePlaylist = g_objPubPoint.SharedPlaylist
  109. '        strNowPlayingPath = objOnlinePlaylist.CurrentPlaylistEntry.GetAttribute( "src" )
  110. '
  111.         strNowPlayingPath = TrimFileColon( g_strNowPlayingPath )
  112.  
  113. '        if( 0 = Len( strNowPlaylistPath ) ) then
  114. '            strNowPlayingPath = TrimFileColon( g_objPubPoint.Path )
  115. '        end if
  116. '
  117. ' Uncomment these lines to show the specific file being sourced within the playlist
  118. '
  119. '        Dim objMediaInfo
  120. '        Set objMediaInfo = objOnlinePlaylist.CurrentMediaInformation
  121. '        strNowPlayingPath = objMediaInfo.GetProperty( "WMS_CONTAINER_LOG_PHYSICAL_URL", "" )
  122.     else
  123.         strNowPlayingPath = TrimFileColon( g_objPubPoint.Path )
  124.     end if
  125. end if
  126.  
  127. '///////////////////////////////////////////
  128. Function TrimFileColon( strPath )
  129.     if( 0 = StrComp( Left( strPath, 7 ), "file://", vbTextCompare ) ) then
  130.         strPath = right( strPath, Len( strPath ) - 7 )
  131.     end if
  132.     TrimFileColon = strPath
  133. End Function
  134.  
  135. '////////////////////////////////////////////////////////////////
  136. Function LabelValue( strValue, strLabel )
  137.     Dim strTemplate
  138.     strTemplate = strLabel
  139.     LabelValue = Server.HTMLEncode( Replace( strTemplate, "___", trim( strValue ), 1 ) )
  140. End Function
  141.  
  142. WriteHTMLHeader( g_strDecodedServerName )
  143. WriteRefreshMetaTag
  144. %>
  145. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  146. <script language="JavaScript" src="include/WMSCommon.js"></script>
  147. <script language="JavaScript">
  148. <!--
  149. /*@cc_on @*/
  150. <% WriteCommonJSUtils %>
  151.  
  152. ///////////////////////////////////////////////////////////////////////
  153. function PrintLocalizedTimestamp( dwUTCDate )
  154. {
  155.     var dateTimeUTC;
  156.     dateTimeUTC = new Date( dwUTCDate ); 
  157.     document.write( dateTimeUTC.toLocaleString() );
  158. }
  159.  
  160. //////////////////////////////////////////////////////////////////////////
  161. function UTCToLocal( dwUTCDate )
  162. {
  163.     <% jsTRY %>
  164.         PrintLocalizedTimestamp( dwUTCDate );
  165.     <% jsCATCH %>
  166. }
  167.  
  168. //////////////////////////////////////////////////////////////////////////
  169. function DisconnectAll()
  170. {
  171.     <% jsTRY %>
  172.         if( true == window.confirm( "<%= RemoveDangerousCharacters( L_CONFIRMDISCONNECT_TEXT ) %>" ) )
  173.         {
  174.             document.location.replace( "<%= "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=rampdown&referrer=pubpoint_status.asp" %>" );
  175.         }
  176.     <% jsCATCH %>
  177. }
  178. -->
  179. </script>
  180. </head>
  181. <body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" <% if bDriveUpdateToTreeView then %>onLoad="UpdateTreeView();"<% end if %> oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  182. <%
  183. ' Draw the page banner and tabs
  184. if bCacheProxyPubPoint then
  185.     DrawCacheProxyPPNameBanner L_MONITORTABTITLE_TEXT
  186. else
  187.     DrawPPNameBanner L_MONITORTABTITLE_TEXT
  188. end if
  189. %>
  190. <table bgcolor="#FFFFFF" width="100%" cellspacing="0" cellpadding="0" border="0">
  191. <tr valign="bottom" height="24">
  192.     <td>
  193.          
  194.     </td>
  195.     <td>
  196.         <p> <br>
  197.         <img src="img\general_16.gif" height="16" width="16" valign="middle">
  198.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_GENERAL_TEXT ) %></span><%' ------------------------------ %>
  199.     </td>
  200. </tr>
  201. <tr valign=top>
  202.     <td>
  203.          
  204.     </td>
  205.     <td>
  206.         <table width="90%" cols="1" cellspacing="0" cellpadding="0" border="1">
  207.         <tr>
  208.             <td>
  209.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  210.                 <tr>
  211.                     <td> </td>
  212.                     <td>
  213.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  214.                         <% if( bBroadcastPubPoint and ( not bCacheProxyPubPoint ) )then %>
  215.                         <tr>
  216.                             <td align="left" nowrap>
  217.                                 <span class="smcounter"><%= Server.HTMLEncode( L_NOWPLAYING_TEXT ) %></span>
  218.                             </td>
  219.                             <td align="right" width="100%" colspan="2">
  220.                                 <span class="smcounter">
  221.                                     <% 
  222.                                         if( g_bBroadcastStreamingHasEnded )then
  223.                                             Response.Write( Server.HTMLEncode( L_STRMENDED_TEXT ) )
  224.                                         else
  225.                                             Response.Write( Server.HTMLEncode( strNowPlayingPath ) )
  226.                                         end if %> 
  227.                                 </span>
  228.                             </td>
  229.                         </tr>
  230.                         <tr>
  231.                             <td height="4">
  232.                             </td>
  233.                             <td height="4">
  234.                             </td>
  235.                         </tr>
  236.                         <% end if %>
  237.                         <tr>
  238.                             <td align="left" nowrap>
  239.                                 <span class="smcounter"><%= Server.HTMLEncode( L_LASTCTRRESET_TEXT ) %></span>
  240.                             </td>
  241.                             <td align="right" width="100%" colspan="2">
  242.                                 <span class="smcounter"><%
  243.                                 strSinceCounter = g_objPubPoint.PeakCounters.CountersStartTime %>
  244.                                     <script language="JavaScript">
  245.                                         UTCToLocal( "<%= Server.HTMLEncode( FormatDateAsUTC( strSinceCounter ) ) %>" );
  246.                                     </script> 
  247.                                 </span>
  248.                             </td>
  249.                         </tr>
  250.                         <tr>
  251.                             <td height="4">
  252.                             </td>
  253.                             <td height="4">
  254.                             </td>
  255.                         </tr>
  256.                         <tr>
  257.                             <td align="left" nowrap>
  258.                                 <span class="smcounter">
  259.                                     <%= Server.HTMLEncode( L_CPUCOLON_TEXT ) %>
  260.                                 </span>
  261.                             </td>
  262.                             <td nowrap align="right" width="100%">
  263.                                 <span class="smcounter">
  264.                                     <%= LabelValue( g_objServer.CPUUtilization, L_PERCENT_TEXT ) %> 
  265.                                 </span>
  266.                             </td>
  267.                         </tr>
  268.                         <tr>
  269.                             <td height="4">
  270.                             </td>
  271.                             <td height="4">
  272.                             </td>
  273.                         </tr>
  274.                         </table>
  275.                     </td>
  276.                 </tr>
  277.                 </table>
  278.             </td>
  279.         </tr>        
  280.         </table>
  281.     </td>
  282. </tr>
  283. <tr valign="bottom" height="24">
  284.     <td>
  285.          
  286.     </td>
  287.     <td>
  288.         <p> <br>
  289.         <img src="img\mediaplayer_16.gif" height="16" width="16" valign="middle">
  290.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_CLIENTS_TEXT ) %></span>
  291.     </td>
  292. </tr>
  293. <tr valign=top>
  294.     <td>
  295.          
  296.     </td>
  297.     <td>
  298.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  299.         <tr>
  300.             <td>
  301.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  302.                 <tr>
  303.                     <td> </td>
  304.                     <td>
  305.                         <table width="100%" cols="3" cellspacing="0" cellpadding="0" border="0">
  306.                         <tr>
  307.                             <td align="left" nowrap>
  308.                                 <span class="smcounter"><%= Server.HTMLEncode( L_CURLIMIT_TEXT ) %></span>
  309.                             </td>
  310.                             <td nowrap align="right" width="100%">
  311.                                 <span nowrap class="smcounter">
  312.                                 <%
  313.                                 limStreamingPlayers = g_objPubPoint.Limits.ConnectedPlayers
  314.                                 if( limStreamingPlayers < 0 ) then
  315.                                   Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  316.                                 else
  317.                                   Response.Write( LabelValue( limStreamingPlayers, L_PLAYERSLABEL_TEXT ) )
  318.                                 end if
  319.                                 %> 
  320.                                 </span>
  321.                             </td>
  322.                         </tr>
  323.                         <tr>
  324.                             <td height="4">
  325.                             </td>
  326.                             <td height="4">
  327.                             </td>
  328.                         </tr>
  329.                         <tr>
  330.                             <td align="left" nowrap>
  331.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_PERCENTLIM_TEXT ) %></span>
  332.                             </td>
  333.                             <td align="right" width="100%">
  334.                                 <span nowrap class="smcounter">
  335.                                 <% 
  336.                                 Dim lConPlayerPercent
  337.                                 if( -1 = limStreamingPlayers ) then
  338.                                     Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  339.                                 else
  340.                                     if( 0 = limStreamingPlayers ) then
  341.                                     else
  342.                                         lConPlayerPercent = 0
  343.                                         lConPlayerPercent = CSng( g_objPubPoint.CurrentCounters.ConnectedPlayers ) / limStreamingPlayers
  344.                                         lConPlayerPercent = CInt( 100 * lConPlayerPercent )
  345.                                         Response.Write( LabelValue( lConPlayerPercent, L_PERCENT_TEXT ) )
  346.                                     end if
  347.                                 end if
  348.                                 %> 
  349.                                 </span>
  350.                             </td>
  351.                         </tr>
  352.                         <tr>
  353.                             <td height="4">
  354.                             </td>
  355.                             <td height="4">
  356.                             </td>
  357.                         </tr>
  358.                         <tr>
  359.                             <td align="left" nowrap>
  360.                                 <span class="smcounter">
  361.                                     <%= Server.HTMLEncode( L_PEAK_TEXT ) %>
  362.                                 </span>
  363.                             </td>
  364.                             <td nowrap align="right" width="100%">
  365.                                 <span nowrap class="smcounter">
  366.                                     <%= LabelValue( g_objPubPoint.PeakCounters.ConnectedPlayers, L_PLAYERSLABEL_TEXT ) %> 
  367.                                 </span>
  368.                             </td>
  369.                         </tr>
  370.                         <tr>
  371.                             <td height="4">
  372.                             </td>
  373.                             <td height="4">
  374.                             </td>
  375.                         </tr>
  376.                         <tr>
  377.                             <td align="left" nowrap>
  378.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_PLAYERSCOLON_TEXT ) %></span>
  379.                             </td>
  380.                             <td align="right" width="100%">
  381.                                 <span nowrap class="smcounter">
  382.                                     <%= LabelValue( g_objPubPoint.CurrentCounters.ConnectedPlayers, L_PLAYERSLABEL_TEXT ) %> 
  383.                                 </span>
  384.                             </td>
  385.                         </tr>
  386.                         <tr>
  387.                             <td height="4">
  388.                             </td>
  389.                             <td height="4">
  390.                             </td>
  391.                         </tr>
  392.                         </table>
  393.                     </td>
  394.                 </tr>
  395.                 </table>
  396.             </td>
  397.         </tr>
  398.         </table>
  399.       </td>
  400. </tr>
  401. <tr valign="bottom" height="24">
  402.     <td>
  403.          
  404.     </td>
  405.     <td>
  406.         <p> <br>
  407.         <img src="img\limits_16.gif" height="16" width="16" valign="middle">
  408.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_BANDWIDTH_TEXT ) %></span><%' ------------------------------ %>
  409.     </td>
  410. </tr>
  411. <tr valign=top>
  412.     <td>
  413.          
  414.     </td>
  415.     <td>
  416.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  417.         <tr>
  418.             <td>
  419.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  420.                 <tr>
  421.                     <td> </td>
  422.                     <td>
  423.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  424.                         <tr>
  425.                             <td align="left" nowrap>
  426.                                 <span class="smcounter"><%= Server.HTMLEncode( L_BANDWIDTHLIM_TEXT ) %></span>
  427.                             </td>
  428.                             <td nowrap align="right" width="100%">
  429.                                 <span nowrap class="smcounter">
  430.                                 <%
  431.                                 limPlayerBandwidth = g_objPubPoint.Limits.PlayerBandwidth
  432.                                 if( limPlayerBandwidth < 0 ) then
  433.                                   Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  434.                                 else
  435.                                   Response.Write( LabelValue( limPlayerBandwidth, L_KBITSPERSEC_TEXT ) )
  436.                                 end if
  437.                                 %> 
  438.                                 </span>
  439.                             </td>
  440.                         </tr>
  441.                         <tr>
  442.                             <td height="4">
  443.                             </td>
  444.                             <td height="4">
  445.                             </td>
  446.                         </tr>
  447.                         <tr>
  448.                             <td align="left" nowrap>
  449.                                 <span class="smcounter"><%= Server.HTMLEncode( L_PERCENTLIM_TEXT ) %></span>
  450.                             </td>
  451.                             <td align="right" width="100%">
  452.                                 <span nowrap class="smcounter">
  453.                                 <% 
  454.                                 Dim lBWPercent
  455.                                 if( -1 = limPlayerBandwidth ) then
  456.                                     Response.Write( Server.HTMLEncode( L_UNLIMITED_TEXT ) )
  457.                                 else
  458.                                     if( 0 = limPlayerBandwidth ) then
  459.                                     else
  460.                                         lBWPercent = 0
  461.                                         lBWPercent = g_objPubPoint.CurrentCounters.PlayerAllocatedBandwidth / limPlayerBandwidth
  462.                                         lBWPercent = CInt( 100 * lBWPercent )
  463.                                         Response.Write( LabelValue( lBWPercent, L_PERCENT_TEXT ) )
  464.                                     end if
  465.                                 end if
  466.                                 %> 
  467.                                 </span>
  468.                             </td>
  469.                         </tr>
  470.                         <tr>
  471.                             <td height="4">
  472.                             </td>
  473.                             <td height="4">
  474.                             </td>
  475.                         </tr>
  476.                         <tr>
  477.                             <td align="left" nowrap>
  478.                                 <span class="smcounter">
  479.                                     <%= Server.HTMLEncode( L_PEAK_TEXT ) %>
  480.                                 </span>
  481.                             </td>
  482.                             <td align="right" width="100%">
  483.                                 <span nowrap class="smcounter">
  484.                                     <%= LabelValue( g_objPubPoint.PeakCounters.PlayerAllocatedBandwidth, L_KBITSPERSEC_TEXT ) %> 
  485.                                 </span>
  486.                             </td>
  487.                         </tr>
  488.                         <tr>
  489.                             <td height="4">
  490.                             </td>
  491.                             <td height="4">
  492.                             </td>
  493.                         </tr>
  494.                         <tr>
  495.                             <td align="left" nowrap>
  496.                                 <span nowrap class="smcounter"><%= Server.HTMLEncode( L_BANDWIDTHALLOCATION_TEXT ) %></span>
  497.                             </td>
  498.                             <td nowrap align="right" width="100%">
  499.                                 <span nowrap class="smcounter">
  500.                                     <%= LabelValue( g_objPubPoint.CurrentCounters.PlayerAllocatedBandwidth, L_KBITSPERSEC_TEXT ) %> 
  501.                                 </span>
  502.                             </td>
  503.                         </tr>
  504.                         <tr>
  505.                             <td height="4">
  506.                             </td>
  507.                             <td height="4">
  508.                             </td>
  509.                         </tr>
  510.                         </table>
  511.                     </td>
  512.                 </tr>
  513.                 </table>
  514.             </td>
  515.         </tr>        
  516.         </table>
  517.     </td>
  518. </tr>
  519. <tr valign="bottom" height="24">
  520.     <td>
  521.          
  522.     </td>
  523.     <td>
  524.         <p> <br>
  525.         <img src="img\inter_advert_16.gif" height="16" width="16" valign="middle">
  526.         <span class="smcounterlabel"><%= Server.HTMLEncode( L_ADVERTISING_TEXT ) %></span><%' ------------------------------ %>
  527.     </td>
  528. </tr>
  529. <tr valign=top>
  530.     <td>
  531.          
  532.     </td>
  533.     <td>
  534.         <table width="90%" cols=1 cellspacing="0" cellpadding="0" border="1">
  535.         <tr>
  536.             <td>
  537.                 <table width="100%" cellspacing="4" cellpadding="0" border="0">
  538.                 <tr>
  539.                     <td> </td>
  540.                     <td>
  541.                         <table width=100% cellspacing="0" cellpadding="0" border="0">
  542.                         <tr>
  543.                             <td align="left" nowrap>
  544.                                 <span class="smcounter"><%= Server.HTMLEncode( L_TOTPPSERVEDADS_TEXT ) %></span>
  545.                             </td>
  546.                             <td nowrap align="right" width="100%">
  547.                                 <span nowrap class="smcounter">
  548.                                     <%= LabelValue( g_objPubPoint.TotalCounters.Advertisements, L_IMPRESSIONSLABEL_TEXT ) %> 
  549.                                 </span>
  550.                             </td>
  551.                         </tr>
  552.                         <tr>
  553.                             <td height="4">
  554.                             </td>
  555.                             <td height="4">
  556.                             </td>
  557.                         </tr>
  558.                         </table>
  559.                     </td>
  560.                 </tr>
  561.                 </table>
  562.             </td>
  563.         </tr>        
  564.         </table>
  565.     </td>
  566. </tr>
  567. <tr valign="bottom" height=24>
  568.     <td>
  569.          
  570.     </td>
  571.     <td>
  572.         <p> 
  573.     </td>
  574. </tr>
  575. <tr valign=top>
  576.     <td>
  577.          
  578.     </td>
  579.     <td>
  580.         <table cellspacing="0" cellpadding="0" border="0" ID="Table1">
  581.         <tr>
  582.             <td>
  583.         <table cellspacing="0" cellpadding="0" border="0">
  584.         <tr>
  585.             <td>
  586.         <%
  587.          if bBroadcastPubPoint and not bCacheProxyPubPoint then
  588.              if bBroadcastPPStarted then
  589.                  ToolbarButtonText ( 0 ) = L_BUTTONSTART_TEXT
  590.                  ToolbarButtonImage( 0 ) = IMAGE_PP_STARTG
  591.                  ToolbarButtonLink ( 0 ) = ""
  592.                  ToolbarButtonAltText( 0 ) = L_STARTTHEPUBPOINT_TEXT
  593.                         
  594.                  ToolbarButtonText ( 1 ) = L_BUTTONSTOP_TEXT
  595.                  ToolbarButtonImage( 1 ) = IMAGE_STOP
  596.                  ToolbarButtonLink ( 1 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=stop&referrer=pubpoint_status.asp"
  597.                  ToolbarButtonAltText( 1 ) = L_STOPTHEPUBPOINT_TEXT
  598.                         
  599.                  dwLastButton = 1
  600.  
  601.              else rem Broadcast PP not started
  602.  
  603.                  ToolbarButtonText ( 0 ) = L_BUTTONSTART_TEXT
  604.                  ToolbarButtonImage( 0 ) = IMAGE_PP_START
  605.                  ToolbarButtonLink ( 0 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=start&referrer=pubpoint_status.asp"
  606.                  ToolbarButtonAltText( 0 ) = L_STARTTHEPUBPOINT_TEXT
  607.  
  608.                  ToolbarButtonText ( 1 ) = L_BUTTONSTOP_TEXT
  609.                  ToolbarButtonImage( 1 ) = IMAGE_STOPG
  610.                  ToolbarButtonLink ( 1 ) = ""
  611.                  ToolbarButtonAltText( 1 ) = L_STOPTHEPUBPOINT_TEXT
  612.              end if
  613.  
  614.              if bAllowingConnections then
  615.                      ToolbarButtonText ( 2 ) = L_BUTTONALLOWNEWCONNECTIONS_TEXT
  616.                      ToolbarButtonImage( 2 ) = IMAGE_ALLOWCONNECTIONSG
  617.                      ToolbarButtonLink ( 2 ) = ""
  618.                      ToolbarButtonAltText( 2 ) = L_ALLOWUCONNECTIONS_TEXT
  619.  
  620.                      ToolbarButtonText ( 3 ) = L_BUTTONDENYNEWCONNECTIONS_TEXT
  621.                      ToolbarButtonImage( 3 ) = IMAGE_DENYCONNECTIONS
  622.                      ToolbarButtonLink ( 3 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=deny&referrer=pubpoint_status.asp"
  623.                      ToolbarButtonAltText( 3 ) = L_DENYUCONNECTIONS_TEXT
  624.                             
  625.                      dwLastButton = 3
  626.                             
  627.              else
  628.                      ToolbarButtonText ( 2 ) = L_BUTTONALLOWNEWCONNECTIONS_TEXT
  629.                      ToolbarButtonImage( 2 ) = IMAGE_ALLOWCONNECTIONS
  630.                      ToolbarButtonLink ( 2 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=allow&referrer=pubpoint_status.asp"
  631.                      ToolbarButtonAltText( 2 ) = L_ALLOWUCONNECTIONS_TEXT
  632.  
  633.                      ToolbarButtonText ( 3 ) = L_BUTTONDENYNEWCONNECTIONS_TEXT
  634.                      ToolbarButtonImage( 3 ) = IMAGE_DENYCONNECTIONSG
  635.                      ToolbarButtonLink ( 3 ) = ""
  636.                      ToolbarButtonAltText( 3 ) = L_DENYUCONNECTIONS_TEXT
  637.                             
  638.                      dwLastButton = 3
  639.                             
  640.              end if
  641.                     
  642.          else rem On-Demand
  643.                                     
  644.              ToolbarButtonText ( 0 ) = L_BUTTONALLOWNEWCONNECTIONS_TEXT
  645.              ToolbarButtonAltText( 0 ) = L_ALLOWUCONNECTIONS_TEXT
  646.              if not bAllowingConnections then
  647.                  ToolbarButtonImage( 0 ) = IMAGE_ALLOWCONNECTIONS
  648.                  ToolbarButtonLink ( 0 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=allow&referrer=pubpoint_status.asp"
  649.              else
  650.                  ToolbarButtonImage( 0 ) = IMAGE_ALLOWCONNECTIONSG
  651.                  ToolbarButtonLink ( 0 ) = ""
  652.              end if
  653.                                     
  654.              ToolbarButtonText ( 1 ) = L_BUTTONDENYNEWCONNECTIONS_TEXT
  655.              ToolbarButtonAltText( 1 ) = L_DENYUCONNECTIONS_TEXT
  656.              if bAllowingConnections then
  657.                  ToolbarButtonImage( 1 ) = IMAGE_DENYCONNECTIONS
  658.                  ToolbarButtonLink( 1 ) = "pp_action.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=deny&referrer=pubpoint_status.asp"
  659.              else
  660.                  ToolbarButtonImage( 1 ) = IMAGE_DENYCONNECTIONSG
  661.                  ToolbarButtonLink( 1 ) = ""
  662.              end if
  663.  
  664.              dwLastButton = 1
  665.                         
  666.         end if
  667.  
  668.         if not bCacheProxyPubPoint then
  669.             dwLastButton = dwLastButton + 1
  670.             ToolbarButtonText ( dwLastButton ) = L_DISCONNECTALLBUTTON_TEXT
  671.             if ( not bBroadcastPubPoint ) or ( bBroadcastPubPoint and bBroadcastPPStarted ) then
  672.                 ToolbarButtonImage( dwLastButton ) = IMAGE_PP_DISCONNECT
  673.                 ToolbarButtonLink ( dwLastButton ) = "JavaScript:DisconnectAll();"
  674.             else
  675.                 ToolbarButtonImage( dwLastButton ) = IMAGE_PP_DISCONNECTG
  676.                 ToolbarButtonLink ( dwLastButton ) = ""
  677.             end if
  678.             ToolbarButtonAltText( dwLastButton ) = L_DISCONNECT_TEXT
  679.         end if
  680.                     
  681.         dwLastButton = dwLastButton + 1            
  682.         ToolbarButtonText ( dwLastButton ) = L_BUTTONRESETPEAKS_TEXT
  683.         ToolbarButtonImage( dwLastButton ) = IMAGE_RESETPEAKS
  684.         ToolbarButtonLink ( dwLastButton ) = "pubpoint_status.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&op=resetctrs&referrer=pubpoint_status.asp"
  685.         ToolbarButtonAltText( dwLastButton ) = L_RESETPEAKS_TEXT
  686.  
  687. if( Session( "ShowServerList" ) ) then
  688.         dwLastButton = dwLastButton + 1
  689.         ToolbarButtonText ( dwLastButton ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  690.         ToolbarButtonImage( dwLastButton ) = IMAGE_SERVERLIST
  691.         ToolbarButtonLink ( dwLastButton ) = SERVERSLIST_PATH
  692.         ToolbarButtonAltText( dwLastButton ) = L_RETURNTOSL_TEXT
  693. end if
  694.  
  695.         dwLastButton = dwLastButton + 1
  696.         ToolbarButtonText ( dwLastButton ) = L_BUTTONHELP_TEXT
  697.         ToolbarButtonImage( dwLastButton ) = IMAGE_HELP
  698.         ToolbarButtonLink ( dwLastButton ) = HELPTOKEN
  699.         ToolbarButtonAltText( dwLastButton ) = L_HELPALT_TEXT
  700.         ToolbarHelpURL = H_PPSTATUSHELPTOPIC
  701.         ToolbarNesting = H_PPLEVEL
  702.             %>
  703. <% DrawToolbar TRUE, ( dwLastButton + 1 )  %>
  704.             </td>
  705.         </tr>
  706.         </table>
  707.     </td>
  708. </tr>
  709. </table>
  710. <%
  711.     DrawRefreshControl TRUE
  712.     DrawCopyrightInfo
  713.     DrawStdFooter
  714.     
  715.     dwQSError = CStr( qs("error") )
  716.     if( 0 = Err.number ) then
  717.         if( 0 < Len( dwQSError ) ) then
  718.             Err.number = CDbl( dwQSError )
  719.             Session( "PageReloadedToDisplayError" ) = 1
  720.         end if
  721.     end if
  722.     AlertUserWithPopupErrorDialog
  723. '    OnErrorGoBack 
  724. %>
  725. </body>
  726. </html>
  727. <%
  728. LatchCurrentPage "pubpoints/pubpoint_status.asp", qs
  729. EndErrorHandling "pubpoint_status.asp" 
  730.  
  731. on error resume next
  732. strNowPlayingPath = ""
  733. strSinceCounter = ""
  734. WMSServerHashASPCleanup
  735. WMSConnectASPCleanup
  736. %>